home *** CD-ROM | disk | FTP | other *** search
- #-------------------------------------------------------------------------------
- # spawnpoint.tcl
- # ==============
- # Statewatcher script for nspawnpoint objects.
- #
- # (C) 2001 RadonLabs GmbH
- #-------------------------------------------------------------------------------
-
- proc spawnpoint_normal {} {
- if {[.islocked] == "true"} {
- .announcestate locked
- }
- }
-
- proc spawnpoint_locked {} {
- if {[.islocked] == "false"} {
- .announcestate normal
- }
- }
-
-
-
-